﻿Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Dim i As New crListadoProfesores()

        'i.SetDataSource(cConsultas.Obtener_Profesores())
        'CrystalReportViewer1.ReportSource = i
        Dim listadoProfesores As List(Of cProfesor) = cConsultas.Obtener_Profesores()
        Dim informe As New CrystalReport1()
        informe.SetDataSource(listadoProfesores)
        CrystalReportViewer1.ReportSource = informe
        CrystalReportSource1.ReportDocument.SetDataSource(listadoProfesores)
        CrystalReportViewer1.DataBind()
    End Sub

End Class